Return the correct suffix in eww-make-unique-file-name

* lisp/net/eww.el (eww-make-unique-file-name): Return the correct
suffix (bug#44936).

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index d6f850ca3ba193fb3ac27785181f724c4e2b4ee4..13b905886511691f5589a21606c7bc5bc3bcd298 100644 (file)
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -1661,7 +1661,7 @@ Use link at point if there is one, else the current page's URL."
         (suffix ""))
     (when (string-match "\\`\\(.*\\)\\([.][^.]+\\)" file)
       (setq stem (match-string 1 file)
-            suffix (match-string 2)))
+            suffix (match-string 2 file)))
     (while (file-exists-p (expand-file-name file directory))
       (setq file (format "%s(%d)%s" stem count suffix))
       (setq count (1+ count)))